From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Fri, 13 Nov 2009 02:40:40 +0000 (+0000)
Subject: (auto-coding-regexp-alist): Only purecopy
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~9531
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e8083ec864db174cb228199e111b18a6d5a6d66d;p=emacs.git

(auto-coding-regexp-alist): Only purecopy
car or each item, not the whole list.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index abb97e7b581..1cb15fb252f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-11-13  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* international/mule.el (auto-coding-regexp-alist): Only purecopy
+	car or each item, not the whole list.
+
 2009-11-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* minibuffer.el (minibuffer-completion-help):
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 7ccec501c7d..34bb916160a 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1648,7 +1648,7 @@ and the contents of `file-coding-system-alist'."
 		       (symbol :tag "Coding system"))))
 
 (defcustom auto-coding-regexp-alist
-  (purecopy
+  (mapcar (lambda (arg) (cons (purecopy (car arg)) (cdr arg)))
   '(("\\`BABYL OPTIONS:[ \t]*-\\*-[ \t]*rmail[ \t]*-\\*-" . no-conversion)
     ("\\`\xFE\xFF" . utf-16be-with-signature)
     ("\\`\xFF\xFE" . utf-16le-with-signature)